home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / COM / ProTERM Mac1.2a.sit / ProTERM Mac1.2a / Macros / Resident Macros 1201 < prev    next >
Text File  |  1996-07-24  |  10KB  |  520 lines
  1. /*************************************
  2.  *                                   *
  3.  *  ProTERM/Mac Resident Macro File  *
  4.  *                                   *
  5.  *   Version 1201  Updated 7/14/96   *
  6.  *                                   *
  7.  *************************************/
  8.  
  9. /*
  10. This file is periodically updated by InTrec Software. As such, modifications to this file are not advised (because it becomes very difficult to move your changes to new versions of this file). Instead, make your changes to the Resident User # (where # is a number) file instead. That way, even if you get an updated version of Resident Macros, your own personal macros remain unchanged within the Resident User # file. Note that these directions supercede those given in the Macros chapter of the manual which advises changing the Resident Macros file directly.
  11.  
  12. The Resident User # files have precedence over the Resident Macros file. Therefore, if you define duplicate routines or variables in the Resident User # files, they will be used instead of those in the Resident Macros file.
  13. */
  14.  
  15. // special code to allow direct execution
  16. FUNC main()
  17. {
  18.  EXTERN(PREF_GET("mac1"),main(1));
  19.  RETURN;
  20. }
  21.  
  22.  
  23. /***********************************************************************/
  24. /*                   Start of Startup Macros                           */
  25. /***********************************************************************/
  26.  
  27. FUNC startup()
  28. {
  29.  SHARED STR _RMAC;
  30.  _RMAC = "1034";                // don't remove this //
  31.  
  32. // Filetypes to be sent as "text" with Text/MacBinary mode:
  33.  PREF_SET("stxt","TEXTttroEPSF");
  34. // Filetypes to be sent as "binary" with Text/MacBinary mode:
  35.  PREF_SET("sbin","JPEGJFIFGIFfTIFFMPEGZIVUTARFPDF ????");
  36. // All other filestypes use "macbinary" with Text/MacBinary mode.
  37.  
  38. // leave this code unchanged
  39.  RESIDENT("",0,#KeyAccess+#LibAccess);
  40.  RETURN;
  41. }
  42.  
  43.  
  44. /***********************************************************************/
  45. /*                   Start of Keyboard Macros                          */
  46. /***********************************************************************/
  47.  
  48.  
  49. //
  50. // COMMAND+OPTION+¥: Attempt to launch URL
  51. //
  52. FUNC ked_092a()
  53. {
  54.  INT anc,ext,win,err,len;
  55.  STR url;
  56.  
  57.  win = WIN_ACTIVE(0);
  58.  anc = IO_GETPOS(win);
  59.  ext = IO_GETSEL(win);
  60.  
  61.  IF (anc > ext) {
  62.   IO_SETPOS(win,ext);
  63.   len = anc-ext;
  64.  } ELSE {
  65.   IO_SETSEL(win,anc);
  66.   len = ext-anc;
  67.  }
  68.  url = IO_READ(win,len);
  69.  IO_SETPOS(win,anc);
  70.  IO_SETSEL(win,ext);
  71.  
  72.  err = -1;
  73.  IF (url != "") { err = IC_LAUNCH("",url) }
  74.  IF (err == -1) { WIN_NOTE(1,"No URL Selected") }
  75.  IF (err < -1) { WIN_NOTE(1,"Unable to Parse URL") }
  76.  RETURN(err);
  77. }
  78.  
  79.  
  80. //
  81. // COMMAND+OPTION+/: Insert a pathname/filename into a document
  82. //
  83. FUNC ked_092C()
  84. {
  85.  STR file = FN_OPEN(0,"Type Name","????");
  86.  IF (file != "") { UI_TYPE(file) }
  87.  RETURN;
  88. } 
  89.  
  90.  
  91. //
  92. // COMMAND+OPTION+I: Set Default Receive Folder
  93. //
  94. FUNC key_0922()
  95. {
  96.  STR path = FN_PATH(4,"Set Recv");
  97.  IF (path != "") {
  98.   FN_SETPATH(4,path);
  99.  }
  100.  RETURN;
  101. }
  102.  
  103.  
  104. //
  105. // COMMAND+OPTION+D: Keyboard Dialing List
  106. //
  107. FUNC key_0902()
  108. {
  109.  STR file = FN_OPEN(5,"Connect","SRVSSRVL");
  110.  IF (file != "") {
  111.   UI_OPEN(file);
  112.   UI_CLICK("Connect:2");
  113.  }
  114.  RETURN;
  115. }
  116.  
  117.  
  118. //
  119. // COMMAND+OPTION+L: Reconnect to Prior Service
  120. //
  121. FUNC key_0925()
  122. {
  123.  IF (WIN_TYPE(WIN_ACTIVE(0)) == "REVW") {
  124.   UI_OPEN(SES_GET(WIN_ACTIVE(0),"PATH"));
  125.   UI_CLICK("Retry");
  126.  }
  127.  RETURN;
  128. }
  129.  
  130.  
  131. //
  132. // COMMAND+OPTION+R: Start Protocol Receive from Keyboard
  133. //
  134. FUNC ktr_090F()
  135. {
  136.  SESSION STR recv_proto;
  137.  IF (recv_proto != "") {
  138.   UI_MENU("Online:Receive:"+recv_proto);
  139.  }
  140.  RETURN;
  141. }
  142.  
  143.  
  144. //
  145. // COMMAND+OPTION+S: Start Protocol Send from Keyboard
  146. //
  147. FUNC ktr_0901()
  148. {
  149.  SESSION STR send_proto;
  150.  IF (send_proto != "") {
  151.   UI_MENU("Online:Send:"+send_proto);
  152.  }
  153.  RETURN;
  154. }
  155.  
  156.  
  157. //
  158. // COMMAND+OPTION+Z: reload global macros
  159. //
  160. FUNC key_0906()
  161. {
  162.  main(1);
  163.  RETURN;
  164. }
  165.  
  166.  
  167. //
  168. // PgUp: Scroll Up a Page (terminal window only)
  169. //
  170. FUNC ktr_0074()
  171. {
  172.  UI_SET("vscroll", "<");
  173.  RETURN;
  174. }
  175.  
  176. //
  177. // PgDn: Scroll Down a Page (terminal window only)
  178. //
  179. FUNC ktr_0079()
  180. {
  181.  UI_SET("vscroll", ">");
  182.  RETURN;
  183. }
  184.  
  185. //
  186. // Home: Move to Start of Window (terminal window only)
  187. //
  188. FUNC ktr_0073()
  189. {
  190.  UI_SET("vscroll", "0");
  191.  RETURN;
  192. }
  193.  
  194. //
  195. // End: Move to End of Window (terminal window only)
  196. //
  197. FUNC ktr_0077()
  198. {
  199.  UI_SET("vscroll", "100");
  200.  RETURN;
  201. }
  202.  
  203. //
  204. // Ins: Scroll Up a Line (terminal window only)
  205. //
  206. FUNC ktr_0072()
  207. {
  208.  UI_SET("vscroll", "-");
  209.  RETURN;
  210. }
  211.  
  212. //
  213. // Del: Scroll Down a Line (terminal window only)
  214. //
  215. FUNC ktr_0075()
  216. {
  217.  UI_SET("vscroll", "+");
  218.  RETURN;
  219. }
  220.  
  221.  
  222. /***********************************************************************/
  223. /*                   Start of Library Macros                           */
  224. /***********************************************************************/
  225.  
  226.  
  227. //
  228. // Send text directly to emulation module
  229. //
  230. FUNC ses_emul(arg1)
  231. {
  232.  IF (IS_STR(arg1)) {
  233.   IO_PRINT(WIN_FIND(SES_GET(0,"TERM WINDOW NAME"),"TERM"),arg1);
  234.  } ELSE {
  235.   IO_PRINT(WIN_FIND(SES_GET(arg1,"TERM WINDOW NAME"),"TERM"),ARGV(2));
  236.  }
  237.  RETURN;
  238. }
  239.  
  240.  
  241. //
  242. // Display initial connect info in terminal window
  243. //
  244. FUNC ses_rate()
  245. {
  246.  INT tc;
  247.  STR lc,rt;
  248.  
  249.  tc = WIN_FIND(SES_GET(0,"TERM WINDOW NAME"));
  250.  lc = SES_GET(0,"LAST CONNECT");
  251.  STR_PARSE(lc,"%*s(%s)",rt);
  252.  IO_PRINTF(tc,"^m%s^m^j^m^j",rt);
  253.  RETURN;
  254. }
  255.  
  256.  
  257. //
  258. // glue code to link to ProTERM Messenger
  259. //
  260. FUNC ses_msgr()
  261. {
  262.  STR home;
  263.  
  264.  home = FN_WHERE(SES_GET(#TermChan,"PATH"));
  265.  EXTERN(home+"Interface",con_auto(home));
  266.  EXTERN(home+":!Messenger",main(1));
  267.  RETURN;
  268. }
  269.  
  270.  
  271. //
  272. // setup keyboard send/receive protocol
  273. //
  274. FUNC key_xfer(str proto)
  275. {
  276.  SESSION STR send_proto;
  277.  SESSION STR recv_proto;
  278.  send_proto = recv_proto = proto;
  279.  RETURN;
  280. }
  281.  
  282. //
  283. // setup keyboard receive protocol
  284. //
  285. FUNC key_recv(STR proto)
  286. {
  287.  SESSION STR recv_proto;
  288.  recv_proto = proto;
  289.  RETURN;
  290. }
  291.  
  292. //
  293. // setup keyboard send protocol
  294. //
  295. FUNC key_send(STR proto)
  296. {
  297.  SESSION STR send_proto;
  298.  send_proto = proto;
  299.  RETURN;
  300. }
  301.  
  302.  
  303. /***********************************************************************/
  304. /*                              Array Macros                           */
  305. /***********************************************************************/
  306.  
  307.  
  308. //
  309. // create a numeric array
  310. //
  311. // entry: size=size of array (0 to 1000 elements)
  312. // exit: returns the array as a string
  313. //
  314. FUNC array_num(INT size)
  315. {
  316.  IF ((size < 0) || (size > 1000)) {
  317.   ERROR("Array Size Out of Range (0..1000)");
  318.  }
  319.  RETURN(STR_LONG(size)+STR_LONG(4)+STR_REPEAT("^0",(size+1)*4));
  320. }
  321.  
  322. //
  323. // create a string array
  324. //
  325. // entry: size=size of array (0 to 1000 elements)
  326. // exit: returns the array as a string
  327. //
  328. FUNC array_str(INT width, INT size)
  329. {
  330.  IF ((width < 1) || (width > 1024)) {
  331.   ERROR("Array Width Out of Range (1..1024)");
  332.  }
  333.  IF ((size < 0) || (size > 1000)) {
  334.   ERROR("Array Size Out of Range (0..1000)");
  335.  }
  336.  
  337.  IF (width < 4) { width = 4 }
  338.  width = width + 1;
  339.  RETURN(STR_LONG(size)+STR_LONG(width)+STR_REPEAT("^0",(size+1)*width));
  340. }
  341.  
  342. //
  343. // return array size information
  344. //
  345. // entry: array=the array, dimin: 0=return width (bytes), 1=return size (items)
  346. // exit: returns the size information
  347. //
  348. FUNC array_size(STR array, INT dimin)
  349. {
  350.  INT x;
  351.  
  352.  x = SWITCH(dimin) {
  353.   CASE 0: {
  354.    x = NUM_LONG(STR_MID(array,4));
  355.    IF (x <= 4) { 1 } ELSE { x-1 };
  356.   }
  357.   CASE 1: {
  358.    NUM_LONG(array);
  359.   }
  360.   DEFAULT: {
  361.    0;
  362.   }
  363.  }
  364.  RETURN(x);
  365. }
  366.  
  367. //
  368. // get a value from an array
  369. //
  370. // entry: array=the array, index=the element index
  371. // exit: returns the value of the element at the specified index
  372. //
  373. FUNC array_get(STR array, INT index)
  374. {
  375.  INT width;
  376.  STR value;
  377.  
  378.  IF ((index < 0) || (index > NUM_LONG(array))) {
  379.   ERROR("Array Index Out of Range");
  380.  }
  381.  
  382.  IF ((width = NUM_LONG(STR_MID(array,4,4))) == 4) {
  383.   RETURN(NUM_LONG(STR_MID(array,8+index*4,4)));
  384.  }
  385.  
  386.  value = STR_MID(array,8+index*width,width);
  387.  RETURN(STR_MID(value,1,NUM_BYTE(value)));
  388. }
  389.  
  390. //
  391. // set a value within an array
  392. //
  393. // entry: array=the array, value=the new value, index=the element index
  394. // exit: returns an updated array with the changed value
  395. //
  396. FUNC array_set(STR array, value, INT index)
  397. {
  398.  INT width;
  399.  
  400.  IF ((index < 0) || (index > NUM_LONG(array))) {
  401.   ERROR("Array Index Out of Range");
  402.  }
  403.  
  404.  IF ((width = NUM_LONG(STR_MID(array,4,4))) == 4) {
  405.    RETURN(STR_LEFT(array,8+index*4)+
  406.           STR_LONG(value)+
  407.           STR_MID(array,8+(index+1)*4));
  408.  }
  409.  
  410.  RETURN(STR_LEFT(array,8+index*width)+
  411.         STR_BYTE(STR_LEN(value))+
  412.         STR_REPEAT(value,width-1)+
  413.         STR_MID(array,8+(index+1)*width));
  414. }
  415.  
  416. //
  417. // add a new value within an array (extend bounds)
  418. //
  419. // entry: array=the array, value=the new value, index=the element index
  420. // exit: returns an updated array with the changed value
  421. //
  422. FUNC array_add(STR array, value)
  423. {
  424.  INT width,index;
  425.  
  426.  index = NUM_LONG(STR_MID(array,0,4));
  427.  width = NUM_LONG(STR_MID(array,4,4));
  428.  
  429.  IF (width == 4) {
  430.   RETURN(STR_LONG(index+1)+
  431.          STR_LONG(width)+
  432.          STR_MID(array,8)+
  433.          STR_LONG(value));
  434.  }
  435.  
  436.  RETURN(STR_LONG(index+1)+
  437.         STR_LONG(width)+
  438.         STR_MID(array,8)+
  439.         STR_BYTE(STR_LEN(value))+
  440.         STR_REPEAT(value,width-1));
  441. }
  442.  
  443.  
  444. /***********************************************************************/
  445. /*                            Glue Functions                           */
  446. /***********************************************************************/
  447.  
  448. FUNC ui_new(STR file)
  449. {
  450.  IF (IS_FILE(file)) { RETURN(-1) }
  451.  F_CREATE(file);
  452.  UI_OPEN(file);
  453.  RETURN(0);
  454. }
  455.  
  456. FUNC ui_open(STR file)
  457. {
  458.  STR type = F_EXISTS(file);
  459.  IF (type != "") {
  460.   UI_CMD('cmd=menu call="#Sub:Open" file=&%*2s type=@%s',file,type);
  461.  }
  462.  RETURN(0);
  463. }
  464.  
  465. FUNC ui_close(STR file)
  466. {
  467.  INT win = WIN_FILE(file);
  468.  UI_CMD('cmd=msg wind=%d msg=CLOS',win);
  469.  RETURN(0);
  470. }
  471.  
  472. FUNC ui_save(STR file)
  473. {
  474.  INT win = WIN_FILE(file);
  475.  UI_CMD('cmd=file #save wind=%d',win);
  476.  RETURN(0);
  477. }
  478.  
  479. FUNC ui_get(STR item)
  480. {
  481.  RETURN(D_GET(WIN_ACTIVE(0),item));
  482. }
  483.  
  484. FUNC ui_set(STR item, STR value)
  485. {
  486.  INT win,ret;
  487.  STR type;
  488.  
  489.  win = WIN_ACTIVE(0);
  490.  ret = D_SET(win,item,value);
  491.  type = WIN_TYPE(win);
  492.  IF ((type == "FS2*") || (type == "FS3*") || (type == "FS4*")) {
  493.   IF (STR_UPPER(item) == "FILE") { WIN_WAIT(win) }
  494.  }
  495.  RETURN(ret);
  496. }
  497.  
  498. FUNC ui_click(STR item)
  499. {
  500.  RETURN(D_SET(WIN_ACTIVE(0),item,"~"));
  501. }
  502.  
  503. FUNC ui_equiv(STR menu, STR key)
  504. {
  505.  IF (key == "") { key = " " }
  506.  RETURN(MM_KEY(menu,key));
  507. }
  508.  
  509. FUNC ui_connect(STR file,INT count,INT sync)
  510. {
  511.  STR result;
  512.  
  513.  IF (F_EXISTS(file) != "SRVS") { RETURN("") }
  514.  result = UI_CMD("cmd=connect file=&%*2s count=%d %s",file,count,
  515.   (IF (sync) { "#SYNC" } ELSE { "" }),
  516.  );
  517.  RETURN("");
  518. }
  519.  
  520.